home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / PowerFantasm™ 4.19a / Beginners guide / GUIDE EXAMPLES / EXAMPLE5.S < prev    next >
Text File  |  1997-02-09  |  1KB  |  33 lines
  1. *********************************************************
  2. *FILENAME:    EXAMPLE5.S                        *
  3. *DESCRIPTION:PROGRAM TO ADD 3 NUMBERS TOGETHER          *
  4. *    AND PRINT THE RESULT IN A WINDOW.               *
  5. *    The program then waits for the Q key            *
  6. *    WRITTEN IN POSITION INDEPENDANT CODE            *
  7. *********************************************************
  8.  
  9. EXAMPLE5:    LEA    EX5_VARS(PC),A6
  10.     BSR    INIT_CURSOR    *part of io_lib.s
  11.     LEA    WINDOW_TITLE(PC),A0
  12.     BSR    OPEN_WINDOW    *PART OF IO_LIB.S
  13.     MOVE.L    A0,WINDOW_HANDLE(A6)    *OPEN_WINDOW RETURNS A HANDLE TO THE WINDOW
  14.  
  15.     MOVE.L    #10,D0    *ADD 10 AND 20 AND 30
  16.     ADD.L    #20,D0
  17.     ADD.L    #30,D0
  18.  
  19.     BSR    PRINTNUM    *part of io_lib.s - PRINTS D0
  20. wait_for_q:    BSR    WAIT_KEY    *WAIT FOR A KEY TO BE PRESSED
  21.     cmpi.b    #"Q",d0
  22.     bne    wait_for_q
  23.     MOVE.L    WINDOW_HANDLE(A6),A0    *GET THE HANDLE FOR THE WINDOW
  24.     BSR    CLOSE_WINDOW    *CLOSE THE WINDOW
  25.     RTS
  26.     INCLUDE    IO_LIB.S
  27. ****VARIABLES
  28. WINDOW_HANDLE:    EQU    0    *WINDOW HANDLE .L
  29. EX5_VARS:    DS.B    4        *SPACE FOR 1 LONG
  30. WINDOW_TITLE:    DC.B    "EXAMPLE 5",0
  31.     align
  32. ************************END OF EXAMPLE5********************
  33.